home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / chemstat.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  14.7 KB  |  253 lines
  1. 10  CLS:KEY OFF
  2. 20  LOCATE 2,15:COLOR 9:PRINT"PRINCIPAL CHARACTERISTICS OF CHEMICAL ELEMENTS":COLOR 15
  3. 30  ' ========================================================================
  4. 40  '                              "MENU"
  5. 50  ' ========================================================================
  6. 60  COLOR 1
  7. 70  LOCATE 6,8:PRINT"Aluminum          Hafnium         Osmium          Tantalum
  8. 80  COLOR 2:LOCATE 7,8:PRINT"Antimony          Helium          Oxygen          Technetium
  9. 90  COLOR 1:LOCATE 8,8:PRINT"Argon             Hydrogen        Palladium       Tellurium<UNK! {FF00}>c1d
  10. 14868  LOCATE 9,8:PRINT"Arsenic           Indium          Phosphorus      Thallium<UNK! {FF00}>DEFSNG1n
  11. 14866  LOCATE 10,8:PRINT"Barium            Iodine          Platinum        Thorium
  12. 120  COLOR 4:LOCATE 11,8:PRINT"Bismuth           Iridium         Plutonium       Thulium
  13. 130  COLOR 1:LOCATE 12,8:PRINT"Boron             Iron            Polonium        Tin
  14. 140  COLOR 5:LOCATE 13,8:PRINT"Bromine           Krypton         Potassium       Titanium
  15. 150  COLOR 1:LOCATE 14,8:PRINT"Cadmium           Lanthanum       Radium          Tungsten
  16. 160  COLOR 6:LOCATE 15,8:PRINT"Calcium           Lead            Radon           Uranium
  17. 170  COLOR 1:LOCATE 16,8:PRINT"Carbon            Lithium         Rubidium        Vanadium<UNK! {FF00}>RANDOMIZE3<0xB4!>
  18. 14872  LOCATE 17,8:PRINT"Chlorine          Magnesium       Scandium        Xenon
  19. 190  COLOR 1:LOCATE 18,8:PRINT"Chromium          Manganese       Selenium        Yttrium
  20. 200  COLOR 8:LOCATE 19,8:PRINT"Cobalt            Mercury         Silicon         Zinc
  21. 210  COLOR 1:LOCATE 20,8:PRINT"Cooper            Molybdenum      Silver          Zirconium
  22. 220  COLOR 13:LOCATE 21,8:PRINT"Gallium           Neon            Sodium          Beryllium"
  23. 230  COLOR 1:LOCATE 22,8:PRINT"Germanium         Nickel          Strontium       Fluorine"
  24. 240  COLOR 10:LOCATE 23,8:PRINT"Gold              Nitrogen        Sulfur          ";:COLOR 20:PRINT"Exit Program";:COLOR 1:PRINT" "
  25. 250  COLOR 6:LOCATE 4,13:PRINT"Press ";:COLOR 31:PRINT"1";:COLOR 6:PRINT" to Return to menu, ";:COLOR 18:PRINT"4";:COLOR 6:PRINT" to Save any changes ":COLOR 6
  26. 260  LOCATE 25,8:PRINT"Using ";:COLOR 28:PRINT" CAPS ONLY ";:COLOR 6:PRINT" ENTER first letter of element to be accessed."
  27. 270  ' ====================================================================
  28. 280  '                    PROGRAMMER'S INSTRUCTION SET
  29. 290  ' ====================================================================
  30. 300  FL$=INKEY$:IF FL$="A" THEN 590
  31. 310  IF FL$="B" THEN 680
  32. 320  IF FL$="C" THEN 780
  33. 330  IF FL$="E" THEN 2470
  34. 340  IF FL$="F" THEN 910
  35. 350  IF FL$="G" THEN 970
  36. 360  IF FL$="H" THEN 1050
  37. 370  IF FL$="I" THEN 1130
  38. 380  IF FL$="K" THEN 1220
  39. 390  IF FL$="L" THEN 1280
  40. 400  IF FL$="M" THEN 1360
  41. 410  IF FL$="N" THEN 1450
  42. 420  IF FL$="O" THEN 1530
  43. 430  IF FL$="P" THEN 1600
  44. 440  IF FL$="R" THEN 1710
  45. 450  IF FL$="S" THEN 1790
  46. 460  IF FL$="T" THEN 1910
  47. 470  IF FL$="U" THEN 2050
  48. 480  IF FL$="V" THEN 2110
  49. 490  IF FL$="X" THEN 2170
  50. 500  IF FL$="Y" THEN 2230
  51. 510  IF FL$="Z" THEN 2290
  52. 520  IF FL$ = "1" THEN GOSUB 2530
  53. 530  IF FL$ = "4" THEN GOSUB 2410
  54. 540  GOTO 300
  55. 550  RETURN
  56. 560  ' ====================================================================
  57. 570  '                         "A" ELEMENTS
  58. 580  ' ====================================================================
  59. 590  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  60. 600  COLOR 15:LOCATE 6,7:PRINT"Aluminum            Al          13        26.98         3
  61. 610  COLOR 5:LOCATE 8,7:PRINT"Antimony            Sb          51       121.75         3 "
  62. 620  COLOR 15:LOCATE 10,7:PRINT"Argon               Ar          18        39.95         0"
  63. 630  COLOR 5:LOCATE 12,7:PRINT"Arsenic             As          33        74.92         5, EQV3"
  64. 640  GOSUB 300
  65. 650  ' ====================================================================
  66. 660  '                          "B" ELEMENTS
  67. 670  ' ====================================================================
  68. 680  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  69. 690  COLOR 15:LOCATE 6,7:PRINT"Barium              Ba          56       137.34         2
  70. 700  COLOR 5:LOCATE 8,7:PRINT"Beryllium           Be           4         9.02         2
  71. 710  COLOR 15:LOCATE 10,7:PRINT"Bismuth             Bi          83       208.98         3,5<UNK! {FF00}>ERL<UNK! {001E}>USR<UNK! {0002}>COLOR 5:LOCATE 12,7:PRINT"Boron               B            5        10.81         3
  72. 730  COLOR 15:LOCATE 14,7:PRINT"Bromine             Br          35        79.90         EQV1,5"
  73. 740  GOSUB 300
  74. 750  ' =====================================================================
  75. 760  '                          "C" ELEMENTS
  76. 770  ' =====================================================================
  77. 780  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  78. 790  COLOR 15:LOCATE 6,7:PRINT"Cadmium           Cd          48        112.40          2
  79. 800  COLOR 5:LOCATE 8,7:PRINT"Calcium           Ca          20         40.08          2
  80. 810  COLOR 15:LOCATE 10,7:PRINT"Carbon            C            6         12.01         EQV4,2
  81. 820  COLOR 5:LOCATE 12,7:PRINT"Cesium            Ce          55        132.91          1
  82. 830  COLOR 15:LOCATE 14,7:PRINT"Chlorine          Cl          17         35.45         EQV1,5,7"
  83. 840  COLOR 15:LOCATE 16,7:PRINT"Chromium          Cr          24         52.00          2,3,6
  84. 850  COLOR 5:LOCATE 18,7:PRINT"Cobalt            Co          27         58.93          2,3
  85. 860  COLOR 15:LOCATE 20,7:PRINT"Cooper            Cu          29         63.55          1,2<UNK! {FF00}>LOAD"f<UNK! {0003}>GOSUB 300
  86. 880  ' =====================================================================
  87. 890  '                          "F" ELEMENTS
  88. 900  ' =====================================================================
  89. 910  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  90. 920  COLOR 15:LOCATE 6,7:PRINT"Fluorine            F            9         19.00       -1
  91. 930  GOSUB 300
  92. 940  ' =======================================================================
  93. 950  '                          "G" ELEMENTS
  94. 960  ' =======================================================================
  95. 970  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  96. 980  COLOR 15:LOCATE 6,7:PRINT"Gallium             Ga          31        69.72        3
  97. 990  COLOR 5:LOCATE 8,7:PRINT"Germanium           Ge          32        72.59        4
  98. 1000  COLOR 15:LOCATE 10,7:PRINT"Gold                Au          79       196.97        1,3
  99. 1010  GOSUB 300
  100. 1020  ' ========================================================================
  101. 1030  '                          "H" ELEMENTS
  102. 1040  ' ========================================================================
  103. 1050  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  104. 1060  COLOR 15:LOCATE 6,7:PRINT"Hafnium            Hf           72       178.50        4
  105. 1070  COLOR 5:LOCATE 8,7:PRINT"Helium             He            2         4.00        0
  106. 1080  COLOR 15:LOCATE 10,7:PRINT"Hydrogen           H             1         1.01        1
  107. 1090  GOSUB 300
  108. 1100  ' ======================================================================
  109. 1110  '                          "I" ELEMENTS
  110. 1120  ' ======================================================================
  111. 1130  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  112. 1140  COLOR 15:LOCATE 6,7:PRINT"Indium              In          49       114.82        3
  113. 1150  COLOR 5:LOCATE 8,7:PRINT"Iodine              I           53       126.90       -1,5,7
  114. 1160  COLOR 15:LOCATE 10,7:PRINT"Iridium             Ir          77       192.22        3,4,6
  115. 1170  COLOR 5:LOCATE 12,7:PRINT"Iron                Fe          26        55.85        2,3
  116. 1180  GOSUB 300
  117. 1190  ' ====================================================================
  118. 1200  '                          "K" ELEMENTS
  119. 1210  ' ====================================================================
  120. 1220  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  121. 1230  COLOR 15:LOCATE 6,7:PRINT"Krypton             Kr          36       83.80        0
  122. 1240  GOSUB 300
  123. 1250  ' =======================================================================
  124. 1260  '                          "L" ELEMENTS
  125. 1270  ' =======================================================================
  126. 1280  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  127. 1290  COLOR 15:LOCATE 6,7:PRINT"Lanthanum           La         57       138.91        3
  128. 1300  COLOR 5:LOCATE 8,7:PRINT"Lead                Pb         82       207.19        2,4
  129. 1310  COLOR 15:LOCATE 10,7:PRINT"Lithium             Li          3         6.94        1
  130. 1320  GOSUB 300
  131. 1330  ' ========================================================================
  132. 1340  '                          "M" ELEMENTS
  133. 1350  ' ========================================================================
  134. 1360  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  135. 1370  COLOR 15:LOCATE 6,7:PRINT"Magneseum          Mg         12        24.31        2
  136. 1380  COLOR 5:LOCATE 8,7:PRINT"Manganese          Mn         25        54.94      2,3,4,6,7
  137. 1390  COLOR 15:LOCATE 10,7:PRINT"Mercury            Hg         80       200.59        1,2
  138. 1400  COLOR 5:LOCATE 12,7:PRINT"Molybdenum         Mo         42        95.94        3,5,6
  139. 1410  GOSUB 300
  140. 1420  ' ======================================================================
  141. 1430  '                         "N" ELEMENTS
  142. 1440  ' ======================================================================
  143. 1450  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  144. 1460  COLOR 15:LOCATE 6,7:PRINT"Neon               Ne         10        20.18        0"
  145. 1470  COLOR 5:LOCATE 8,7:PRINT"Nickel             Ni         28        58.71        2,3
  146. 1480  COLOR 15:LOCATE 10,7:PRINT"Nitrogen            N          7        14.01       -3,2,5
  147. 1490  GOSUB 300
  148. 1500  ' ======================================================================
  149. 1510  '                         "O" ELEMENTS
  150. 1520  ' ======================================================================
  151. 1530  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  152. 1540  COLOR 15:LOCATE 6,7:PRINT"Osmium              Os          76       190.20       4,6,8
  153. 1550  COLOR 5:LOCATE 8,7:PRINT"Oxygen               O           8        16.00      -2
  154. 1560  GOSUB 300
  155. 1570  ' =======================================================================
  156. 1580  '                          "P" ELEMENTS
  157. 1590  ' =======================================================================
  158. 1600  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  159. 1610  COLOR 15:LOCATE 6,7:PRINT"Palladium             Pd         46       106.40      2,4
  160. 1620  COLOR 5:LOCATE 8,7:PRINT"Phosphorus            P          15        30.97     EQV3,5
  161. 1630  COLOR 15:LOCATE 10,7:PRINT"Platinum              Pt         78       195.09      2,4
  162. 1640  COLOR 5:LOCATE 12,7:PRINT"Plutonium             Pu         94       244.00     3,4,5,6
  163. 1650  COLOR 15:LOCATE 14,7:PRINT"Polonium              Po         84       210.00       2,4
  164. 1660  COLOR 5:LOCATE 16,7:PRINT"Potassium             K          19        39.10       1
  165. 1670  GOSUB 300
  166. 1680  ' =======================================================================
  167. 1690  '                         "R" ELEMENTS
  168. 1700  ' =======================================================================
  169. 1710  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  170. 1720  COLOR 15:LOCATE 6,7:PRINT"Radium                Ra         88       226.03      2
  171. 1730  COLOR 5:LOCATE 8,7:PRINT"Radon                 Rn         86       222.00      0
  172. 1740  COLOR 15:LOCATE 10,7:PRINT"Rubidium              Ru         37        85.47      1
  173. 1750  GOSUB 300
  174. 1760  ' =====================================================================
  175. 1770  '                         "S" ELEMENTS
  176. 1780  ' =====================================================================
  177. 1790  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  178. 1800  COLOR 15:LOCATE 6,7:PRINT"Scandium              Sc         21        44.96      3
  179. 1810  COLOR 5:LOCATE 8,7:PRINT"Selenium              Se         34        78.96     -2,4,6<UNK! {FF00}>\:-16633 15:LOCATE 10,7:PRINT"Silicon               Si         14        28.09      4
  180. 1830  COLOR 5:LOCATE 12,7:PRINT"Silver                Ag         47       107.87      1
  181. 1840  COLOR 15:LOCATE 14,7:PRINT"Sodium                Na         11        22.99      1
  182. 1850  COLOR 5:LOCATE 16,7:PRINT"Strontium             Sr         38        87.62      2
  183. 1860  COLOR 15:LOCATE 18,7:PRINT"Sulfur                S          16        32.06     -2,4,6
  184. 1870  GOSUB 300
  185. 1880  ' =====================================================================
  186. 1890  '                         "T" ELEMENTS
  187. 1900  ' ======================================================================
  188. 1910  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  189. 1920  COLOR 15:LOCATE 6,7:PRINT"Tantalum            Ta           73       180.95       5
  190. 1930  COLOR 5:LOCATE 8,7:PRINT"Technetium          Tc           43        99.00       7   <UNK! {FF00}>(>NEW<UNK! {0007}>COLOR 15:LOCATE 10,7:PRINT"Tellurium           Te           52       127.60<UNK! {FF20}>     -2,4,6
  191. 1950  COLOR 5:LOCATE 12,7:PRINT"Thallium            Tl           81       204.39       1,3
  192. 1960  COLOR 15:LOCATE 14,7:PRINT"Thorium             Th           90       232.04       4
  193. 1970  COLOR 5:LOCATE 16,7:PRINT"Thulium             Tm           69       168.93       3
  194. 1980  COLOR 15:LOCATE 18,7:PRINT"Tin                 Sn           50       118.69       2,4
  195. 1990  COLOR 5:LOCATE 20,7:PRINT"Titanium            Ti           22        47.90       3,4
  196. 2000  COLOR 15:LOCATE 22,7:PRINT"Tungsten            W            74       183.85       6
  197. 2010  GOSUB 300
  198. 2020  ' ======================================================================
  199. 2030  '                          "URANIUM"
  200. 2040  ' ======================================================================
  201. 2050  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  202. 2060  COLOR 15:LOCATE 6,7:PRINT"Uranium             U            92       238.04     3,4,5,6
  203. 2070  GOSUB 300
  204. 2080  ' ======================================================================
  205. 2090  '                           "VANADIUM"
  206. 2100  ' ======================================================================
  207. 2110  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  208. 2120  COLOR 15:LOCATE 6,7:PRINT"Vanadium            V            23        50.94      2,4,5
  209. 2130  GOSUB 300
  210. 2140  ' ======================================================================
  211. 2150  '                             "XENON"
  212. 2160  ' ======================================================================
  213. 2170  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  214. 2180  COLOR 15:LOCATE 6,7:PRINT"Xenon               Xe           54       131.30       0
  215. 2190  GOSUB 300
  216. 2200  ' ======================================================================
  217. 2210  '                             "YTTRIUM"
  218. 2220  ' ======================================================================
  219. 2230  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  220. 2240  COLOR 15:LOCATE 6,7:PRINT"Yttrium             Y            39        88.91       3
  221. 2250  GOSUB 300
  222. 2260  ' =======================================================================
  223. 2270  '                         "Z" ELEMENTS
  224. 2280  ' =======================================================================
  225. 2290  CLS:COLOR 9:LOCATE 3,7:PRINT"ELEMENT           Symbol      At. No.    At. Wt.    Valence"
  226. 2300  COLOR 15:LOCATE 6,7:PRINT"Zinc                Zn           30        65.38       2
  227. 2310  COLOR 5:LOCATE 8,7:PRINT"Zirconium           Zr           40        91.22       4
  228. 2320  GOSUB 300
  229. 2330  ' ======================================================================
  230. 2340  '                           SAVE ROUTINE
  231. 2350  ' ========================================================================
  232. 2410  CLS:LOCATE 11,12:PRINT"One moment while I save any new changes . . ."
  233. 2420  LOCATE 19,45:COLOR 31:PRINT" . . . saving changes":COLOR 5
  234. 2430  BEEP:SAVE"CHEMSTAT.BAS"
  235. 2435  GOTO 10
  236. 2440  ' =======================================================================
  237. 2450  '                           EXIT ROUTINE
  238. 2460  ' =======================================================================
  239. 2470  CLS:COLOR 15:LOCATE 8,19:PRINT"Do you now wish to exit this program?"
  240. 2480  LOCATE 9,22:PRINT"         [Y]es   [";:COLOR 31:PRINT"N";:COLOR 15:PRINT"]o "
  241. 2490  E$ = INKEY$:IF E$ = "Y" THEN 2520
  242. 2500  IF E$ = "N" THEN 10
  243. 2510  GOTO 2490
  244. 2520  COLOR 5:CLS:RUN"FILES."
  245. 2530  FL$=INKEY$
  246. 2540  FL = VAL(FL$)
  247. 2550  IF FL <> 1 THEN 10
  248. 2560  RETURN
  249. 2570  FL$=INKEY$
  250. 2580  FL = VAL(F$)
  251. 2590  IF FL <> 4 THEN 2360
  252. 2600  RETURN
  253.